inherited FPesquisaCliente: TFPesquisaCliente
  Left = 230
  Top = 157
  Caption = 'Pesquisa Cliente'
  ClientHeight = 360
  ClientWidth = 428
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    Width = 428
    inherited BtnLimpar: TBitBtn
      OnClick = BtnLimparClick
    end
    inherited BtnImprimir: TBitBtn
      OnClick = BtnImprimirClick
    end
    inherited BtnSelecionar: TBitBtn
      OnClick = BtnSelecionarClick
    end
  end
  inherited Panel1: TPanel
    Width = 428
    Height = 319
    object Label9: TLabel [0]
      Left = 4
      Top = 40
      Width = 20
      Height = 13
      Caption = 'CPF'
    end
    object Label1: TLabel [1]
      Left = 5
      Top = 77
      Width = 112
      Height = 13
      Caption = 'Nome ou  Raz'#227'o Social'
    end
    object Label2: TLabel [2]
      Left = 5
      Top = 112
      Width = 40
      Height = 13
      Caption = 'Fantasia'
    end
    object Label3: TLabel [3]
      Left = 5
      Top = 0
      Width = 33
      Height = 13
      Caption = 'C'#243'digo'
    end
    object Label19: TLabel [4]
      Left = 128
      Top = 40
      Width = 29
      Height = 13
      Caption = 'Grupo'
    end
    inherited DBGrid1: TDBGrid
      Top = 193
      Width = 426
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 6
    end
    inherited Panel3: TPanel
      Top = 298
      Width = 426
      TabOrder = 7
    end
    object RGTipoCliente: TRadioGroup
      Left = 78
      Top = 2
      Width = 342
      Height = 32
      Caption = '  Tipo Cliente  '
      Columns = 4
      Ctl3D = False
      ItemIndex = 0
      Items.Strings = (
        'Todos'
        'F'#237'sica'
        'Jur'#237'dica'
        'Outros')
      ParentCtl3D = False
      TabOrder = 1
      OnClick = RGTipoClienteClick
    end
    object MECpfCNPJ: TMaskEdit
      Left = 4
      Top = 53
      Width = 110
      Height = 19
      Ctl3D = False
      EditMask = '999.999.999-99;0;_'
      MaxLength = 14
      ParentCtl3D = False
      TabOrder = 2
    end
    object ENome: TEdit
      Left = 5
      Top = 92
      Width = 415
      Height = 19
      CharCase = ecUpperCase
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 4
    end
    object EFantasia: TEdit
      Left = 5
      Top = 126
      Width = 415
      Height = 19
      CharCase = ecUpperCase
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 5
    end
    object ECodigo: TEdit
      Left = 4
      Top = 15
      Width = 69
      Height = 19
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
      OnKeyPress = ECodigoKeyPress
    end
    object RGSituacao: TRadioGroup
      Left = 6
      Top = 149
      Width = 415
      Height = 36
      Caption = 'Situa'#231#227'o'
      Columns = 3
      Ctl3D = False
      ItemIndex = 0
      Items.Strings = (
        'Todos'
        'Ativo'
        'Inativo')
      ParentCtl3D = False
      TabOrder = 8
    end
    object dblGrupos: TDBLookupComboBox
      Left = 128
      Top = 53
      Width = 292
      Height = 19
      Ctl3D = False
      KeyField = 'GRUP_CODIGO'
      ListField = 'GRUP_DESCRICAO'
      ListSource = dsGrupos
      ParentCtl3D = False
      TabOrder = 3
      OnKeyDown = dblGruposKeyDown
    end
  end
  inherited QPesquisa: TQuery
    Active = True
    SQL.Strings = (
      'Select * from fornecedor')
    Left = 112
    Top = 209
  end
  inherited DSPesquisa: TDataSource
    Left = 224
    Top = 209
  end
  object dsGrupos: TDataSource
    Left = 56
    Top = 192
  end
end
